5 PRINT"[147]PLEASE STAND BY.COPYING CHARACTER SET." 10 POKE52,48:POKE56,48:CLR:POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251 20 FORI=0TO2040:POKEI+12288,PEEK(I+53248):NEXT:POKE1,PEEK(1)OR4 30 POKE56334,PEEK(56334)OR1:DIMA(5,7):FORY=0TO3:FORX=0TO7:READA(Y,X):NEXT:NEXT 40 B=2:FORY=4TO5:FORX=0TO7:A(Y,X)=A(B,X):NEXT:B=B-1:NEXT 50 POKE53272,(PEEK(53272)AND240)OR12 60 FORY=0TO5:FORX=0TO7:POKE12544+X,A(Y,X):IFPEEK(203)=64THENNEXT:NEXT:GOTO60 70 FORX=0TO7:POKE12544+X,0:NEXT:END 80 DATA 255,129,129,129,129,129,129,255,0,126,66,66,66,66,126,0,0,0,60,36,36,60 90 DATA 0,0,0,0,0,24,24,0,0,0,0